home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_1.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  836 b   |  46 lines
  1. on startMovie
  2.   global Level
  3.   set Level to 0
  4.   tell the stage
  5.     puppetPalette("menuPal")
  6.     updateStage()
  7.   end tell
  8.   setActvGalaxy("Menu")
  9.   SetActvModule("Menu")
  10.   setActvSection(EMPTY)
  11.   setActvPage(the frame)
  12. end
  13.  
  14. on puppetizeExclude bool, spriteNum, startSprite, stopSprite
  15.   set i to startSprite
  16.   repeat while i <= stopSprite
  17.     if i <> spriteNum then
  18.       puppetSprite(i, bool)
  19.     end if
  20.     set i to i + 1
  21.   end repeat
  22. end
  23.  
  24. on puppetize startSprite, stopSprite
  25.   set i to startSprite
  26.   repeat while i <= stopSprite
  27.     puppetSprite(i, 1)
  28.     set i to i + 1
  29.   end repeat
  30. end
  31.  
  32. on depuppetize startSprite, stopSprite
  33.   set i to startSprite
  34.   repeat while i <= stopSprite
  35.     puppetSprite(i, 0)
  36.     updateStage()
  37.     set i to i + 1
  38.   end repeat
  39. end
  40.  
  41. on purgeSound
  42.   repeat with i = 1 to 8
  43.     sound stop i
  44.   end repeat
  45. end
  46.